                Dim Incoming As String = com1.ReadLine()